home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / bbs / RPGBBS1.lha / InstallerScript < prev    next >
Text File  |  1995-07-07  |  6KB  |  314 lines
  1. ;$VER: RPGBBS Deluxe Installer v1.0 (28 Jan 1995)
  2.  
  3. (set true 1)
  4. (set false 0)
  5. (set quote "\"")
  6. (set nothing "")
  7. (set WB2 (< 2293760 (getversion "exec.library" (resident)))) ; true if under 2.0
  8.  
  9. (set fonts_dir (getassign "FONTS"))
  10. (set libs_dir (getassign "LIBS"))
  11. (set RPGBBS_dir (getassign "RPGBBS"))
  12.  
  13. (set Src_RPGBBS "RPGBBS Install:RPGBBS/")
  14. (set Src_Libs "RPGBBS Install:Libs/")
  15. (set Src_Fonts "RPGBBS Install:Fonts/")
  16. (set Src_Pix "RPGBBS Pix:Pix/")
  17. (set Src_Docs "RPGBBS Extra:Documentation/")
  18. (set Src_Help "RPGBBS Extra:Help/")
  19. (set Src_Menu "RPGBBS Extra:Menu/")
  20. (set Src_Sounds "RPGBBS Extra:Sounds/")
  21.  
  22. (complete 2)
  23.  
  24. ; ask user to locate FONTS: directory
  25.  
  26. (set Fonts_dir
  27.      (askdir
  28.           (prompt "Please locate your FONTS: directory")
  29.           (help @askdir-help)
  30.           (default fonts_dir)
  31.           (newpath)
  32.      )
  33. )
  34.  
  35. (complete 5)
  36.  
  37. (working omp "...Please Wait...")
  38.  
  39. (copyfiles
  40.      (prompt "Select file(s) to be copied into your FONTS: directory:")
  41.      (help "\n\n\n\n\nThis will copy over any fonts needed for the "
  42.      "BBS.\n\n\n\n\n\n\n"
  43.      @copyfiles-help)
  44.      (source Src_Fonts)
  45.      (dest fonts_dir)
  46.      (pattern "(#?)")
  47.      (fonts)
  48.      (confirm)
  49. )
  50.  
  51. (complete 8)
  52.  
  53. ; ask user to locate LIBS: directory
  54.  
  55. (set libs_dir
  56.      (askdir
  57.           (prompt "Please locate your LIBS: directory.")
  58.           (help @askdir-help)
  59.           (default libs_dir)
  60.           (newpath)
  61.      )
  62. )
  63.  
  64. (complete 10)
  65.  
  66. (working omp "...Please Wait...")
  67.  
  68. (copyfiles
  69.      (prompt "Select file(s) to be copied into your LIBS: directory:")
  70.      (help "\n\n\n\nThis will copy the B-tree, RPGBBS, Serial-Console, "
  71.      "and XPR libraries into your system's LIBS: directory.\n\n\n\n"
  72.      @copylib-help)
  73.      (source Src_Libs)
  74.      (dest libs_dir)
  75.      (pattern "(#?.library)")
  76.      (confirm)
  77. )
  78.  
  79. (complete 15)
  80.  
  81. (if  (<> RPGBBS_dir nothing)
  82.      (if  (askbool
  83.                (prompt "\n\n\nSome version of RPGBBS Deluxe software "
  84.                "already exists in your drawer named: \n\n"
  85.                quote RPGBBS_dir quote
  86.                "\n\nDo you want the update installed over it?")
  87.                (help
  88.                "\n\n\nThe installer has determined that you already have a "
  89.                "some version of RPGBBS Deluxe software installed on your "
  90.                "If this is wrong or you want the update installed elsewhere, "
  91.                "select 'NO', otherwise select 'YES'."
  92.                )
  93.                (default 1)
  94.           )
  95.                (set is_update true) 
  96.  
  97. ;else ask where to put software
  98.  
  99.           (
  100.                (set is_update false)
  101.                (set RPGBBS_dir
  102.                (askdir
  103.                     (prompt "Where would you like the updated software "
  104.                     "installed?\n"
  105.                     )
  106.                     (help @askdir-help)
  107.                     (default @default-dest)
  108.                )
  109.                )
  110.  
  111.                (set RPGBBS_dir
  112.                )
  113.  
  114.                (makedir RPGBBS_dir
  115.                (infos)
  116.                )
  117.           )
  118.      )
  119. )
  120.  
  121. ; RPGBBS: was not previously assigned, so ask where to make it
  122. (if  (= RPGBBS_dir nothing)
  123.           (
  124.           (set RPGBBS_dir
  125.                (askdir
  126.                     (prompt "Where would you like the software installed? "
  127.                     "'RPGBBS' will be automatically appended.")
  128.                     (help @askdir-help)
  129.                     (default @default-dest)
  130.                )
  131.           )
  132.  
  133.           (set RPGBBS_dir
  134.           (tackon RPGBBS_dir "RPGBBS")
  135.           )
  136.  
  137.           (makedir RPGBBS_dir
  138.           (infos)
  139.           )
  140.      )
  141. )
  142.  
  143. (complete 20)
  144.  
  145. (copyfiles
  146.      (prompt "Select file(s) to be copied to RPGBBS directory:")
  147.      (help "\n\n\n\nThis will copy programs and support files.\n\n\n\n"
  148.      @copyfiles-help)
  149.      (source Src_RPGBBS)
  150.      (dest RPGBBS_dir)
  151.      (pattern "#?")
  152.      (confirm)
  153. )
  154.  
  155. (complete 33)
  156.  
  157. ;create Pix directory
  158.  
  159. (set Pix_dir
  160. (cat RPGBBS_dir)
  161. )
  162. (set Pix_dir
  163. (tackon Pix_dir "Pix")
  164. )
  165.  
  166. (makedir Pix_dir
  167. (infos)
  168. )
  169.  
  170. (complete 35)
  171.  
  172. (working omp "...Please Wait...")
  173.  
  174. (copyfiles
  175.      (prompt "Select file(s) to be copied to Pix directory:")
  176.      (help "\n\n\n\nThis will copy various text, ANSI, and PXL files for "
  177.      "optional use.\n\n\n\n"
  178.      @copyfiles-help)
  179.      (source Src_Pix)
  180.      (dest Pix_dir)
  181.      (pattern "#?")
  182.      (confirm)
  183. )
  184.  
  185. (complete 63)
  186.  
  187. ;create Documentation directory
  188.  
  189. (set Docs_dir
  190. (cat RPGBBS_dir)
  191. )
  192. (set Docs_dir
  193. (tackon Docs_dir "Documentation")
  194. )
  195.  
  196. (makedir Docs_dir
  197. (infos)
  198. )
  199.  
  200. (complete 65)
  201.  
  202. (working omp "...Please Wait...")
  203.  
  204. (copyfiles
  205.      (prompt "Select file(s) to be copied Documentation directory:")
  206.      (help "\n\n\n\nThis will copy various documentation on "
  207.      "RPGBBS Deluxe, History, and XPR protocols.\n\n\n\n"
  208.      @copyfiles-help)
  209.      (source Src_docs)
  210.      (dest Docs_dir)
  211.      (pattern "#?")
  212.      (confirm)
  213. )
  214.  
  215. (complete 68)
  216.  
  217. ;create Help directory
  218.  
  219. (set Help_dir
  220. (cat RPGBBS_dir)
  221. )
  222. (set Help_dir
  223. (tackon Help_dir "Help")
  224. )
  225.  
  226. (makedir Help_dir
  227. (infos)
  228. )
  229.  
  230. (complete 70)
  231.  
  232. (working omp "...Please Wait...")
  233.  
  234. (copyfiles
  235.      (prompt "Select file(s) to be copied to Help directory:")
  236.      (help "\n\n\n\nThis will copy various text files for "
  237.      "optional use.\n\n\n\n"
  238.      @copyfiles-help)
  239.      (source Src_Help)
  240.      (dest Help_dir)
  241.      (pattern "#?")
  242.      (confirm)
  243. )
  244.  
  245. (complete 73)
  246.  
  247. ;create Menu directory
  248.  
  249. (set Menu_dir
  250. (cat RPGBBS_dir)
  251. )
  252. (set Menu_dir
  253. (tackon Menu_dir "Menu")
  254. )
  255.  
  256. (makedir Menu_dir
  257. (infos)
  258. )
  259.  
  260. (complete 75)
  261.  
  262. (working omp "...Please Wait...")
  263.  
  264. (copyfiles
  265.      (prompt "Select file(s) to be copied to Menu directory:")
  266.      (help "\n\n\n\nThis will copy various text files for "
  267.      "optional use.\n\n\n\n"
  268.      @copyfiles-help)
  269.      (source Src_Menu)
  270.      (dest Menu_dir)
  271.      (pattern "#?")
  272.      (confirm)
  273. )
  274.  
  275. (complete 78)
  276.  
  277. ;create Sounds directory
  278.  
  279. (set Sounds_dir
  280. (cat RPGBBS_dir)
  281. )
  282. (set Sounds_dir
  283. (tackon Sounds_dir "Sounds")
  284. )
  285.  
  286. (makedir Sounds_dir
  287. (infos)
  288. )
  289.  
  290. (complete 80)
  291.  
  292. (working omp "...Please Wait...")
  293.  
  294. (copyfiles
  295.      (prompt "Select file(s) to be copied to Sounds directory:")
  296.      (help "\n\n\n\nThis will copy various IFF sound files for "
  297.      "optional use.\n\n\n\n"
  298.      @copyfiles-help)
  299.      (source Src_Sounds)
  300.      (dest Sounds_dir)
  301.      (pattern "#?")
  302.      (confirm)
  303. )
  304.  
  305. (complete 99)
  306.  
  307. (message "\n\n\n\n\n\n"
  308. "Installation of RPGBBS Deluxe software is complete!"
  309. )
  310.  
  311. (complete 100)
  312.  
  313. (exit)
  314.